home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.10 Oct 91 / Jorg October / Globals.f < prev    next >
Encoding:
Text File  |  1991-08-27  |  1.3 KB  |  71 lines  |  [TEXT/MPS ]
  1. ! Globals.f 
  2. ! Created 8/27/91 9:37 by AppMaker 
  3.  
  4. !!MP inlines.f
  5. !!G JLtest.finc.f
  6.  
  7. !!D+
  8. !!R+
  9. !!OV+
  10. !!S Globals 
  11.  
  12. !----------
  13.     Subroutine InitGlobals
  14.     include 'Globals.inc'
  15.     QDG = JQDGlobals()
  16.     curWindow = nil
  17.     nocur.text.TEH = nil
  18.     nocur.vScroll.CtlH = nil
  19.     nocur.hScroll.CtlH = nil
  20.     nocur.fileNum = 0
  21.     nocur.volNum = 0
  22.     nocur.dirty = .false.
  23.     nocur.windowKind = noWindow
  24.     cur = %loc(noCur)
  25.     End !InitGlobals
  26.  
  27. !----------
  28.     Subroutine SetInfo (window)
  29.     include 'Globals.inc'
  30.     pointer /grafport/ window
  31.     pointer /WinInfoRec/ infoPtr
  32.  
  33.     if (window <> curWindow) then 
  34.         curWindow = window
  35.         if (curWindow <> nil) then 
  36.             infoPtr = GetWRefCon (curWindow)
  37.             cur = infoPtr
  38.         else 
  39.             cur = %loc(noCur)
  40.         end if
  41.     end if
  42.     End !SetInfo
  43.  
  44. !----------
  45.     Subroutine SetNewInfo (window)
  46.     pointer /grafport/ window
  47.     pointer /WinInfoRec/ infoPtr
  48.  
  49.     infoPtr = NewPtr (Jsizeof (WinInfoRec))
  50.     Call SetWRefCon (window, INT4(infoPtr))
  51.     Call SetInfo (window)
  52.     End !SetNewInfo
  53.  
  54. !----------
  55.     Subroutine DiscardInfo (window)
  56.     include 'Globals.inc'
  57.     pointer /grafport/ window, localwin
  58.     pointer /WinInfoRec/ infoPtr
  59.  
  60.     localwin = window
  61.     if (localwin = curWindow) then 
  62.         Call SetInfo (nil)
  63.     end if
  64.     infoPtr = GetWRefCon (localwin)
  65.     Call DisposPtr (infoPtr)
  66.     Call HideWindow (localwin)
  67.     Call DisposeWindow (localwin)
  68.     End !DiscardInfo
  69.  
  70.  
  71.